perm filename GETCHN.1[AID,LSP] blob sn#395529 filedate 1978-11-14 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(declare (setq no-disk-hacks t))
C00003 ENDMK
CāŠ—;
(declare (setq no-disk-hacks t))
(declare (require util 1 dsk (aid rpg)))

(defun free-channels ()
 (let a ā† nil
      point ā† 146.
      do
      (repeat 16. do
	      (cond ((zerop (examine point))
		     (setq a (cons (- point 146.) a))))
	      (setq point (1+ point)))
      (nreverse a)))